Windows 95Æte dosya kopyalama i■lemini gerτekle■tirdi≡inizde dosyan²n kopyaland²≡²n² g÷steren kⁿτⁿk bir animasyonla kar■²la■²rs²n²z. Bu animasyon asl²nda bir dizi resmin s²rayla g÷sterilmesinden ba■ka bir ■ey de≡ildir. VB ile de b÷yle animasyonlar yapmak τok kolayd²r.
Bu ÷rne≡imizi uygulamak iτin ÷nceden seτece≡iniz ve ard arda g÷sterildi≡inde bir hareket olu■turacak 3 resim bulun. Bu ⁿτ resmi s²rayla olu■turaca≡²n²z 3 g÷rⁿntⁿ kutusuna (image) yerle■tirin. Formun ⁿzerine bunlardan ba■ka bir resim kutusu, timer kontrolⁿ ve bir tu■ ekledikten sonra a■a≡²daki kodlar² yazmaya ba■lay²n. Burada dikkat etmeniz gereken τok ÷nemli bir ■ey var, o da Formun ba■l²k τubu≡undaki resmi de de≡i■tirece≡imizden Image kutular²na yerle■tirece≡iniz resimleri simge (ICO) olmas²d²r.
General - Declarations b÷lⁿmⁿne yaz²lacak
Dim y As Integer
General b÷lⁿmⁿne yaz²lacak
Private Sub degistir()
y = y + 1: If y = 4 Then y = 1
æFormun Simgesini de≡i■tir
Form1.Icon = Image1(y).Picture
æResim kutusundaki resmi de≡i■tir.
Picture1.Picture = Image1(y).Picture
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
æTimerƲn kontrolⁿnⁿn her bir vuru■unda...
ædegistir alt yordam²n² cagir.
degistir
End Sub
Timer kontrolⁿnⁿn Interval ÷zelli≡ini 500 gibi bir say²yla de≡i■tirmeyi unutmay²p program² τal²■t²rd²≡²n²zda
resim kutusuna s²rayla ⁿτ g÷rⁿntⁿ kutusundaki simgelerin geldi≡ini g÷receksiniz. ▌■in ilginτ taraf² ba■l²k τubu≡undaki simgenin de resim kutusuyla e■ zamanl² olarak de≡i■mesidir.